Lista de olhos da familia laalalallalala
Caro Coleguinha sei q que não aguenta mais esse data frame, juror que eststa é a uultima vez!!!!!
Gostei da im m do Google
Caption for the picture.
---
title: "MeuPrimeiroFlex"
output:
flexdashboard::flex_dashboard:
orientation: rows
#vertical_layout: fill
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
```
### Olhos
Lista de olhos da familia **laalalallalala**
```{r , echo=FALSE}
dfolhos <- data.frame( "Nome" = c("Joana", "Francisco", "Paulo", "Márcia", "Joaquina", "Bruno"),
"Idade" = c(21,30,27,29,40,27),
"Cor dos Olhos" = c("Preto","Castanho","Azul","Azul","Preto","Castanho"))
olho <- table(dfolhos$Cor.dos.Olhos)
fator <- as.factor(dfolhos$Cor.dos.Olhos)
porcentagem <- round(olho/sum(olho)*100,2)
rotulo <- paste(levels(fator), "(",porcentagem, "%",")", ssep = "")
pie(porcentagem, labels = rotulo,
main = "Olhos", col= c("pink", "light blue","light green"))
```
# outro Gráfico
**Caro Coleguinha** sei q que não aguenta mais esse data frame, juror que eststa é a uultima vez!!!!!
```{r, echo=FALSE}
olho <- table(dfolhos$Cor.dos.Olhos)
barplot(olho, main = " Olhos", xlab = " Cor", ylab = "quantidade",
col = c("pink", "light blue","light green" ))
```
# Imagem
```{r}
```
Gostei da im m do Google
